&& CRIA O ARQUIVO(nomestabelas.txt) PARA SER UTILIZADO PELO ZAPTABELAS.PRG
                                 * monta o select e zap para a tabela
messagebox("inico")

create cursor a_nomes(nome c(80))

nTabelas=adir(aArq,"c:\sisbib\dados\*.dbf")
for nCont=1 to nTabelas
      aArq[nCont,1]="USE c:\sisbib\dados\"+aArq[nCont,1]+" EXCLUSIV"
      select a_nomes
      append blank
      replace nome with aArq[nCont,1]

      append blank
      replace nome with "ZAP"

      append blank
      replace nome with "REINDEX "
      
      append blank
      replace nome with "CLOSE TABLES"

      append blank
      replace nome with ""
      
endfor
select a_nomes
copy to "c:\sisbib\nomestabelas.txt" sdf
*cam="c:\temp\teste.txt"
*SET TEXTMERGE ON
*    \\<<aArq>>
*SET TEXTMERGE TO
*SET TEXTMERGE TO "&cam." NOSHOW
*SET TEXTMERGE ON
messagebox("fim")